home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
scope
/
126-150
/
scopedisk146
/
liner
/
rexx
/
countword.rx
< prev
Wrap
Text File
|
1995-03-19
|
534b
|
23 lines
/*Finds out how many times a word appears in the current outline*/
address 'liner'
say "Please type in the word you want to search for."
parse pull SearchString
say "The word is " || SearchString
options results
Counter = 0
'totop' /*Go to the top of the outline*/
do until result = 'false' /*Loop until the word isn't found*/
'search ftt ' || SearchString /*Do the search*/
Counter=Counter+1 /*Increment the counter*/
end
/*Print the results*/
echo "The word was found " || Counter-1 || " times."